Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/PINDEX.FCP

Text File | 1990-09-23 | 618b | 57 lines

@DSPLY "This program"
@DSPLY "calculates the"
@DSPLY "price index number"
@DSPLY "based on the Laspeyres"
@DSPLY "formula."
=
@NEW STEP
@GET "Base year quantity?"
@RIN (1)
@GET "Base year price?"
@RIN (2)
@GET "Current price?"
@RIN (3)
*
@ROUT (1)
=
@NEW STEP
+
@ROUT (4)
=
@NEW STEP
@RIN (4)
=
@NEW STEP
@ROUT (1)
*
@ROUT (2)
=
@NEW STEP
+
@ROUT (5)
=
@NEW STEP
@RIN (5)
=
@NEW STEP
@GET "More data? 0=No 1=Yes"
@IF =
1=
@NEW STEP
@GOTO (2)
=
@NEW STEP
@ROUT (4)
/
@ROUT (5)
=
@NEW STEP
@DSPLY "Price Index is"
0=
@NEW STEP
@RIN (4)
0=
@NEW STEP
@RIN (5)
@STOP